home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / string.gs < prev    next >
Encoding:
Text File  |  1998-04-23  |  356 b   |  15 lines
  1. *  Plots a string using current attributes
  2. *  at "clicked on" position.  String can be provided
  3. *  as an argument or will be prompted for 
  4. *
  5. function string (args)
  6.   if (args='') 
  7.     say 'Enter string:'
  8.     pull args
  9.   endif
  10.   say 'Click where you want the string'
  11.   'query bpos'
  12.   x = subwrd(result,3)
  13.   y = subwrd(result,4)
  14.   'draw string 'x' 'y' 'args
  15.